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MEMORY MANAGEMENT SERVICES TEST #3 


- TITLE RMB ER TORY = TEST OF SCRETVA/SDELTVA SYSTEM SERVICES 
- iDENT 


SRAAAETAAAEAAAATEKEREAETEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARATAAAAEAAAAAAATAAAe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED a A LICENSE AND MAY BE USED AND rae 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tart oe > le ° THE 


SoOoOoCoOoOoOooooO 


SSSSSSSSSSSSSSSSSSSSS 


COOoooooo 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


Ss 


COOOCCOCCOCOCOCOOCOOOOOOOOoOoOOoO 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. 
; * 
: * 
; * 
; * 
; * 
; * 
; * 
3 * 
: 2 
; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

* 
: : 
: * 
: * 
; * 
; ® 
; a 
: * 
: * 
: ” 
3 * 


‘® 
** 
** 
‘® 
:@ 
:® 
‘® 
:® 
-* 
:* 
s® TRANSFERRED. 
® 
*® 
:® 
:* 
*@ 
:* 
** 
* 
‘® 
-* 


RRA TETE AERA AAA AAAAAAAAAAAAAAAAAAAAAEAAAAAAEAeAAAA AA 


iF FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 

ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 
ENVIRONMENT: USER MODE DIAGNOSTIC 

AUTHOR: PETER H. LIPMAN , CREATION DATE: 6-JAN-77 


SOooooooooooooooo 


; ; MODIFIED BY: 


v02-012 SHZ0003 Stephen Zalewski 20-Aug-1980 
Added further tests to system services esatea” in this 
program. Also incorporated program into MMG test 
package. 
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cor 
on 
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4 
48 .SBTTL DECLARATIONS | 
: INCLUDE FILES: 
.SBTTL MACROS | 
; : MACROS 
6 MACRO LIST 
LIST MEB 
§ [ENDM LIST 
60 MACRO NLIST 
0 61 NLIST MEB 
9 6¢ ENOM NLIST 
$0 64 .MACRO CRETVA STARTVA,ENDVA, STATUS=S°#SS$_NORMAL, = 
4 $3 s a89 INADR=W* INRANGE , RE TADR=W*RE TRANGE 
$50 86 IF NB, STARTVA 
990 68 MOVL = STARTVA, W* INRANGE 
00 6 -ENDC 
000 0 “IF NB, ENDVA 
900 4 MOVE ENDVA,W* INRANGE +4 
0000 ig MOVZWL STATUS,R3 
9000 74 MOVAL INADR,RO 
00 75 MOVAL RETADR,R1 
00 id: BSBW  CRETVASUBR 
BS 7 NLIST 
900 if: .ENDM  CRETVA 
900 80 .MACRO DELTVA STARTVA,ENDVA, STATUS=S°#SS$_NORMAL, - 
4 1 = INADR=W* INRANGE , RE TADR=W*RE TRANGE 
$0 : IF NB, STARTVA 
00 4 MOVL  STARTVA, W* INRANGE 
00 5 -ENDC 
00 ‘ IF NB, ENDVA 
900 MOVL  ENDVA, W* INRANGE +4 
00 8 .ENDC 
9 MOVZWL STATUS,R3 
0 MOVAL INADR,RO 
91 MOVAL RETADR,R1 
3 BSBW  DELTVASUBR 
9 9 NLIST 
34 .ENDM = DELTVA 
09 %6 -MACRO EXPREG PAGCNT,REGION=#0,STATUS=S“#SS$_NORMAL , - 
9 RE TADR=W*RETRANGE 
98 LIST 
MOVZWL STATUS,R3 
100 MOVL  PAGCNT.R4 
101 MOVAL RETADR.R1 
1 é IF LDN, <REGION> , <#0> 
1 CLRL R 
104 FF 


$3 
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MACROS eit 7 8F: 98:53 MMGTST.SRCJMMGCRTDEL.MAR; 1 ° 3) 
5 move REGION,RS 
1 5 BSBW  EXPREGSUBR 
1 : NLIST 
.ENDM = EXPREG 
it .MACRO RANGECHK ONOROFF 
116 LIST 
11 olf IDN <ONOROFF>,<OFF> 
116 - BICL #CTLSM_RNGCHK,W*CTLFLG 
116 ’ BISL  #CTLSM_RNGCHK,W*CTLFLG 
11 ENDC 
118 NLIST 
: 119 .ENDM —- RANGECHK 
121; 
9 : ; EQUATED SYMBOLS: 
09 1204 ° SSSDEF 
0 125 $SECDEF 
0 1 é SPRIDEF 
09 1 $GBLINI 
0 1 8 $VIELD CTL,0,<- ;DEFINE CONTROL BITS IN R3 
000 1 <MEMLOOP, ,MASK>,- [LOOP IN MEMORY WRITE LOOP 
000 130 <TSTLOOP, ,MASK>, = SREDO ENTIRE TEST FROM TOP 
0000 «131 <PIDMSG, ,MASK>,~ SPUT PROCESS ID IN EACH TYPEOUT 
op j : <RNGCHK, ,MASK>= [ON IF CHECKING RETURN RANGE 
00000010 0000 4 PRT$SC_NONE=1a4 
9000 1 6 + OWN STORAGE: 
000 137: 


nL tn bas Beas Bea bie i eh a a a 
Z2°°°O~" >>>} rrr rrreze 
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v04 DATA AND ME SeAGe stRinge g- seer 18 4 8¢ 08:58 MMGTST.SRCIMMGCRTDEL.MAR:1 © dh 
13 «SOT DATA STORAGE AND MESSAGE STRINGS 
000000 1% meatl [PSECT DATAO,PAGE,WRT,NOEXE 
00000008 16 RETRANGE Sekt 2 
1 144 ‘BLKL 2 
0 145 CTLFLG: : LONG CTLSM,TSTLOOP! CTLSM_PIDMSG 
146 SAVEND *BLKL 
147 HIGHP : 
9000016 148 .BLKL 1 ;LAST BYTE ADDRESS IN PO SPACE 
000002 149 PID:  ‘BLKL 1 :PROCESS ID 
1 , MAXPASSCNT: 
00000003 aime? ONG 3 ;NUMBER OF PASSES TO RUN 
00000028 § prevprorieekt 1 :PASS COUNTER 
155 FAB:  $FAB —— FAC=PUT, FNA=OUTNAMADR, FNS=OUTNAMSIZ ;FAB FOR OUTPUT 
1 : RAB:  $RAB  FAB=FAB ;RECORD ACCESS BLOCK FOR OUTPUT 
900000¢0 157 MSGLEN: .BLKL 1 ‘RETURN LENGTH FROM FAO 
000000DE *000000A0' : NSGBUFD: LONG MSGBUF $12 ,MSGBUF [MESSAGE BUFFER DESCRIPTOR 
000000DA' 00000004" 160 "LONG MSGBUF-PIDMSG,PIDMSG 
16¢ ; ##eee DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 
164 MSGBUF ID: 
OA 9 165 CRLF: .BYTE “%015,°012 
Bane $8 3 5 183 PIDMSG ASCH Process . 
60601 Fe 168 MSGBUF: :BLKB 160 :MESSAGE BUFFER USED BY FAO 
000000 169 MSGBUF $1Z=.-MSGBUF 
4 : t##e® DO NOT SEPARATE OR REORDER THE PRECEEDING LINES 
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SRETADR = !XL = !XL!/$ 
EXPREGERRSIZ=.-EXPREGERRADR 
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0000000A ‘00000063 
0000006D ' 00000063 
00000000 ‘00000072 
00000142°0000004F 
00000191 '00000039 
000001CA'00000043 
0000020D ' 00000003 
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CRETVAERR: 
DELTVAERR: 
EXPREGERR: 


PIDCTL: 
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CRETVAERRSIZ,CRETVAERRADR 
DELTVAERRSIZ,DELTVAERRADR 
EXPREGERRSIZ,EXPREGERRADR 
RANGERRSIZ,RANGERRADR 
IDMSGS1Z, IDMSGADR 

RUN1 _MSGS1Z,RUN1_MSGADR 
PIDCTLSIZ,PIDCTLADR 
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~SBTTL INITIALIZATION 
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; PROGRAM DESCRIPTION: 


THIS PROGRAM TESTS by FOLLOWING SYSTEM SERVICES: 
SCRETVA, SDELTVA 


AM FORCES POSSIBLE ERROR PATHS FOR THE ABOVE MENTIONED 
CES. THREE PASSES ARE MADE THROUGH THE TEST LOOP 
TH REPEATABILITY. ONLY REGULAR VA SPACE IS USED IN 


$D$: cMnesTs COMIMMGTST.RAP FOR FURTHER INFORMATION 
T_HOW PLETELY THE ABOVE MENTIONED SYSTEM SERVICES 
THIS PROGRAM. 


<o“>Pr O 


Cie Se Se Se Ge Se Se Se Ge Ge Se Se Ge Se Ge Se Ge Se Ge 


0 : START HERE 
0000 TART: .WORD 0 sENTRY MASK 
$OPEN W*FAB [OPEN THE FILE ‘‘SOUTPUT'’ 
06 50 €9 BLBC RO, 108 ‘BRANCH IF ERR 
SCONNECT W*RAB ‘CONNECT THE RECORD ACCESS BLOCK 
09 50 €8 6 BLBS : 
62 10$:  $EXIT_S RO sEXIT WITH STATUS IN RO 
00000024"EF 01 D0 63 20$: MOVL ~ #1,PASSCNT S INITIALIZE THE PASS COUNT 
6 SRESUME_S PID :SET UP PROCESS ID 
50 O000001C'EF 3C 028 6 MOVZWL “PID,RO 
at 6 $FAO_S PIDETL, MSGLEN,PIDMSGD,RO ZINIT THE PROCESS ID STRING 
a 6 : INFORM OPERATOR THAT TESTS WILL BE RUN USING ONLY NORMAL VA SPACE 
Ad 27 $FAO_S RUN1_MSG,MSGLEN,MSGBUFD ; INFORM OPR NORMAL VA USED FOR TESTS 
038A 30 O2BA 27 BSBW” TYPEASGBUF 
0010'CF 04 CA 0 : , Sai BICL #CTLSM_PIDMSG,W*CTLFLG ;STOP PROCESS ID FROM PRINTING 
0 ¢ 7 RANGECHK ON 
0010'CF 08 cB O2¢ BISL § #CTLS$M_RNGCHK,W*CTLFLG 
¢ 7 SFAO_S IDMSG,MSGLEN,MSGBUFD,PASSCNT 
0360 30 0264 27 BSBW” TYPEMSGBUF 
E727 EXPREG #1 
53 1 3c (02E7 MOVZWL $*#SS$_NORMAL ,R3 
1 DO O2EA MOV 4 
51 0008" CF DE O2ED MOVAL W*RETRANGE,R1 
5 D4 O2F2 CLR 
9260 0 O2F4 BSBU ioe 
52 000 ‘Cf D O2F7 78 mova WORE TRAN GE,R 
0000'CF : 7D O2FC 27 MOVa Rou 
0014°CF 52 00 0301 80 MOVL We INRANGE 


0000° CF 0000200 8F 
0004 'CF 8000 400 iF 
0 d0 ‘CF 
1 008° CF 
1€1 
QOOO'CF  /FFEC801 BF 
Q004'CF 7FFECDO1 8F 
53 BAe E F 
50 000'CF 
51 = 0008'CF 
019D 
0000' CF ee 
0004 ' CF had A444 F 
5 0244 BF 
50 0000'CF 
51 0008°CF 
0178 
0018°CF  OO0C'CF 
Q000'CF  0008'CF 
53.01 
50 0000°CF 
51 0008'CF 
015D 
53.01 
50 0000°CF 
51 = 0008' CF 
0161 
52. 0014'CF 
QOOO'CF § 52 
0004°CF 0600 C2 
5301 
50 0000'°CF 
51 sae 
Fs 
0200 C2 6500 C 
& Hot 
Sanit 
112 
5301 


HOON OGOL TP “DONO TDO"™OSOSSOS wen 


>>>> bo 4 + 0 oe et RR BN Re Ne ge oe ee ee | DO 


SNE FS VN FB MOT FHM OL ROOOOOOHLRNOOuwn 


AAA ANAINI AIAN AAAI NII AINA AIA AIAN AIA AAI 


neg me ne ne ene a 


: 


288 


289 


304 


.SBTTL FORCE ERRORS IN CRETVA 
; FORCE ERRORS FROM CRETVA 


“x 
MOVL ax 


P 
MOVAL WAIN 6 
W*RETRANGE ,R1 


CRETVA #*xX80000200,#°x 9 0A00, #SS$ 
MOVL =so# sib é W* INRANG 
NOPRIV.R3 
RANGE ,R 


BSB 


oW*IN 
oW* INRANGE +4 


mM 4 
gngyree svoven Hence ose iags BNESS BOE Mesa OBE ass POP 


NOPRIV ;SYSTEM ADDRESS 


W RETVA 
CRETVA BUF FECBOT wx EFECDOI .#sss PAGOWNVIO ;KERNAL STACK 
MOVL  #*x? W* INRANGE 


x 4a At . 
#*X7FFECDO1,W* INRANGE +4 


MOVL “ 
MOVZWL #SS$_PAGOWNVIO,R3 
MOVAL  W*INRANGE,R 
MOVAL  W*RETRANGE,R1 


BSBW y 
CRETVA alata Hh 0-1 ,#SS$_VASFULL 


AVEND .W* INRANGE 
MO #1a30-1 
MOVZWL #SS$_VASFUL 
M W* INRANG 

W*RETRANGE ,R1 


BSBW CRETV 
MOVL W*RETRANGE +4 -W*HIGHPOADR 
t+ W*RETRANGE ,W* INRANGE 


MOVZWL S*#SS$_NORMAL,R3 

MOVAL W*INRANGE,R 
W*RETRANGE ,R1 

BSBW  CRETVASUBR 

: CONTINUE FORCING CRETVA ERRORS 

DELTVA 


MOVZWL S*#SS$_NORMAL ,R3 
MOVAL W*INRANGE ,RO 


R2,W* INRANGE 
*¥600(R2) ,W* INRANGE +4 
MOVZWL S$*#SS$_NORMAL,R3 
4 W* INRANGE ,RO 
WRETRANGE ,R1 
CRETVASUBR 


MOVAL 
CRETVA 


BSBW 
MOVB tag) (R3) 
MOVB *x206(R2),°x200(R2) 
CRETVA 


S*#SS$_NORMAL ,R3 
“INRAN 


W 
W*RETRANGE ,R1 
CRETVASUBR 


S*#SS$_NORMAL ,R3 


DELTVA 
MOVZWL 


U* INRANGE +4 


FILL THE PAGE TABLE 


SAVE HIGH ADDRESS 


;DELETE WHAT WAS CREATED 


CREATE 4 PAGES 


m— 


M (DELETE 1ST) 


;DELETE THEM ALL 


Se Di Re i Do Re Be De es De es 8 | 
2zPPrrrr>rrrrrrrxvrvrer 
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v04-0 FORCE ERRORS IN CRETVA g-§ b= 7 8¢ 9B 68 :02 mNGYS RCIMMGCRTDEL. MAR; 1 ° 19, 
DE O3DA MOVAL  W*INRANGE,RO 
be DF MOVAL WeRETRANGE , R1 
E4 BSBW eLty A 
E? 305 CRETVA STATUS=48S ACCVIO,= 
E 6 INADR=W* ; INACCESSIBLE INPUT RANGE 
3c (O3E7 MOVZWL #SS$_ACCVIO,R3 
DE O3EA MOVAL 
DF EF MOVAL U*RETRANGE R1 
F4 BSBW CRETVA 
F7 307 CRETVA STATUS=A$ Ntevio,- 
F7 =. 308 RETADR= ; INACCESSIBLE RETURN RANGE 
3c (O3F7 MOVZUL “SSS ACCVIO,R3 
DE O3FA MOV WTINRA NRANGE ,RO 
DE 3FF MOVAC R1 
0404 BSBW Cre TVASUBR 


he ae) 


B 5 
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v04 ERRORS FROM DELTVA =SEP-1984 01:58:02 CMMGTST.SRCJMMGCRTDEL.MAR; 1 (8) 
4 ? 10 .SBTTL FORCE ERRORS FROM DELTVA 
‘ , 1g + FORCE ERRORS FROM DELTVA 
407 314 RANGECHK OFF 
0010'CF 08 407 ICL #CTLSM_RNGCHK,W*CTLFLG ’ 
40C 315 DELTVA ;DELETE LENVIO 
3 40¢ MOVZWL $*#SS$_NORMAL,R3 
9 000'CF 40F MOVAL W*INRANGE,RO 
008' CF 14 MOVAL W*RETRANGE,R1 
419 BSBW  DELTVASUBR 
41C 316 RANGECHK ON 
0010'CF 08 41¢ BIS scTL se RN CHK W°CTLFLG 
421 317 DELTVA #*x80000260 #380 0A00,#SS$_NOPRIV ;SYSTEM ADDRESS 
OO0OO'CF 80000200 BF D0 o 1 MOVL #*X80000200,W* INRANGE 
0004 ' CF 800004 Ly 0 042A L #*X80000A00.W* INRANGE +4 
3 26 «63C «(0433 MOVZWL #SS$_NOPRIV.R3 
50 O000°CF DE 0436 MOVAL W*INRANGE,R 
51 0008'CF DE 4 MOVAL W*RETRANGE,R1 
OOBA 44 BSBW  DELTVASUBR 
0443 318 DELTVA #0,#0 ;ALREADY DELETED 
O000'CF 00 dO 044 MOVL § #0,W*INRANGE 
0004°CF 00 D0 0448 MOVL § #0.W*INRANGE+4 
53 010s 3C.s«044D MOVZWL S$*#SS$_NORMAL,R3 
50 O000°CF dE 9450 MOVAL  W*INRANGE,RO 
1 ooo SRE mou gerraasi 
0450 319 DELTVA ee tasi-<1oBavents W* INRANGE ,#SS$_PAGOWNVIO ZACCESS POINTER PAGE 
QOOOO'CE 7FFEFFFF 8F D0 045D MOVL &#<1a31-<128a9>-1>, W* INRANGE 
"CF 9000" CF 0 0466 MOVL § W*INRANGE,W* INRANGE +4 
25 foporee «BE C93 MOVAL’ USINAANGE ROL 
51 b008' tt DE £35 MOVAL W*RETRANGE,R1 
007€ 47C BSBW  DELTVASUBR 
‘CF 0014'CF DO O47F 320 MOVL_ —W*SAVEND ,W* INRANGE 
0014'CF 00000600 8 C1 sia? 1 ADDL3 #*X600,WSAVEND, W* INRANGE +4 
49 322 DELTVA STATUS=#SS$_ACCVIO,- 
49 INADR=W*4 ; INPUT RANGE NOT ACCESSIBLE 
50 db06' es HS rhs ROVALS “A Sb preese 
51 0008°CF DE 49A MOVAL W*RETRANGE,R1 
0058 49F BSBW DELTVASUBR 
4A 334 DELTVA STATUS=ASS _ACCVIO,- 
4A 5 RETADR=W* ;RETURN RANGE INACCESSIBLE 
53 OC 3C O4A MOVZWL #SS$_ACCVIO,R3 
ay Boos cE ODE OCAA ROVAL WT INRANGE .RO 
0048 i 4AF BSBW DELTVASUBR 
4B2 326 CRETVA :GET SOME PAGES | 
3 01 «3c 048 MOVZWL S$*#SS$_NORMAL,R3 
50 ‘CF «=6DE «(048 MOVAL W*INRANGE,RO 
51 000 Sf pe 4BA MOVAL W*RETRANGE,R1 
0027 4BF BSBW  CRETVASUBR 
4C 337 DELTVA STATUS=#SS$_ACCVI1O,- 
4C 8 RE TADR=aw* I RRAN ;DELETE PAGE CONTAINING RETURN RANGE 
53 0c 3c «(04 MOVZWL #SS$_ACCVIO,R3 
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CF a BSBW  DELTVASUBR 
p 0 END OF LOOP 
OC 0024'CF 9920" cr F3 04D : : AOBLEQ W*MAXPASSCNT,W*PASSCNT, 160$ 
0 061 DO O4DA 150$: MOVL  #1,R0 
40D 4 SEXIT_S RO 
FDD9 31 168 5 160$: BR RSTART 
04E 6 
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-SBTTL SUBROUTINES TO CALL THE SERVICES 


z™ 


oa 
_— 
z 
wv 
Cc 
— 


DR 
RED STATUS 
OUTPUT: 

R2 PRESERVED 
ERETVA SUBR: 

SCRETVA_ . ino 


»,(R1) 
MOVA CRETVAERR,R1 ;ERROR CONTROL STRING 
BRB CHE Ce 


COVE 6 a a Be Be Oe Oe Oe Oe Be ee 


51 FD16 CF 
14 


ma 


D STATUS 


OOO NA NEW O OONOUE WO 00 


PRR R RRR RRR RRR RRR RRR RPE EE 


DPAEDPEDP GMI IMI a 98 FF 8 8 PMN Nr 
PDP PSST BS BB 


b 


DOOLNMVOV DOA L$ - HN SPOUVVVVVTVVTVVTVV VDOC OWOWOWOOoOooovowowvowvowo 


04 ; R2 PRESERVED 
04 ELTVASUBR: 
4 SDELTVA.s (RO), (R1) 
51 FDOA CFE DE 05 W*DELTVAERR,R1 TERROR CONTROL STRING 
600 11 05 68 BR CHECK1 
5 CHECK1: 
53 50 ot 5 0 CMPL ~—s_ RO, RB ;STATUS AS DESIRED 
48 «1305 BEQL «108 ‘BRANCH IF YE 
53 0244 ar 8} 3 cHPw #S8_ VASFULL,R3 TIF EXPECTING VIRTUAL ADDRESS SPACE FULL 
50 (1C I 5 CMPW =, #SS$_EXQUOTA,RO ; THEN EXCEEDS QUOTA MAY ALSO BE RETURNED 
3 ; 5 BEQL 108 ~ 
4 od 5$: PUSHL R4 
54 04 AE 00 05 MOVL 4(SP), ag DBRESS OF ERROR 
; SFAO_S (R1) ASCLEN MSGBUFD,R 
INRA INRANGE +4, pana ROR ROE TRANGE +4 
19 A 05 POPR #*M<R4> 
00E Q 3 p BSBW TYPEMSGBUF 
1 10$ - 
0069 31 ; } BRW RANGE CHK :GO CHECK THE RETURN RANGE 
64 3 INPUT: 
64 : 
64 : R1 = RETAOR 
564 : R3 = DESIRED STATUS 
564 : R&4 = PAGCNT 
af : RS = REGION 
64 + OUTPUT: 
564 ; 
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95 ; R2 PRESERVED 
4 3 EXPREGSUBR: 
§ EXPREG_S R4,(R1),,R5 
51 FCA9 CF DE +e |. Fe MOVAL “W*EXPREGERR,R1 ;ERROR CONTROL STRING 
53 g b 78 4 ? " CMPL RO R3 : STATUS As DESIRED? 
1 7B OG ; BEQL «=s«éd108 SBRANCH IF YES 
6 pp 2p 4 PUSHL 
56 04 AE OD 404 MOVL 4($P) -ADDRESS OF ERROR 
es 405 $FAO_S (R1) ASCLEN MSGBUF D, R6,RO,R3,R4,R5,= 
0040 8F A t 5 POPR Feneae TRANCE. RETRANGE 
0092 8 A 4 8 BsBu TYPERSCBUF 
0000'CF 0008" f 00 386 410 10S: MOVE We RETRANGE ,* INRANGE :MAKE INPUT RANGE LOOK LIKE CRETVA/D 
o004'cr — 000°CF i rs Hara Meh s RL OS INRANGE .W* INRANGE +4 
3 C8 aig cecal RANGECHK ;AND CHECK THE RETURN RANGE 
73 0010°CF 0 3 E1 3CD 416 BBC #CTLSY_RNGCHK ,W*CTLFLG, 40S ;BRANCH IF RANGE CHECK IS DISABLED 
9 5p3. 4 BLBC :1f ERROR IN SERVICE. SkIP THE RANGE 
50 9000" cr D 0506 48 MOVQ  W*{NRANGE,RO tRO = STARVA, R1 = ENDVA 
1 9 D1 0508 41 CMPL _— RO, R1 ‘WHICH DIRECTION? 
1 1A O05DE 420 BGTRU 108 {BRANCH IF BACKWARDS 
04 1F $e 421 BLSSU -5$ [BRANCH IF FORWARDS 
0c 50 1€ = €0 3E2 4 ¢. BBS #30,R0,10$ [FOR EQUAL, PO SPACE FORWARDS, P1 BA 
$e 4 4: : REQUESTED RANGE IS FORWARDS 
50 OFF BF AA 0566 & : és. BICw #*XiFF,RO :FROM BYTE 0 OF STARTVA 
51 OO1FF ar Ag 368 4 , Bisw geXFF RI ; THROUGH LAST BYTE OF ENDVA 
SF2 409 ; : 
rH ? 03 : GOING BACKWARDS IN VIRTUAL ADDRESS SPACE 
1FF BF F 432 10s: Su WAXTFF,RO ZLAST BYTE OF STARTVA 
39 eee oF rr} 3 4 § . stat #°X1FF-RI : THROUGH FIRST BYTE OF ENDVA 
0008" CF : D1 O5SFC «6434 208: = CMPL RO URETRANGE is THIS WHAT WAS RETURNED? 
coocrer $f SES tH BRE at neraacese td f° 
13 0608 4 $ BEaL 46=-_:«& OS ‘BRANCH IF YES. RANGE OK 
db OA 4 : 30$:  PUSHL R i SAVE REGISTER 
53 04 AE OD 4 MOVL  4(SP),R3 "TO USE FOR ERROR PC 
$10 440 SFAO_S <W*RANGERR>,MSGLEN,MSGBUFD,R3,- ;FORMAT THE ERROR MESSAGE 
10 441 INRANGE E, INRANGE +4 , RE TRANGE , RF teak ANGE * +4 
08 41 44g POPR #*M<R3> ;RESTORE, SAVE REGISTER 
0001 39 645 443 BSBW § TYPEMSGBUF SOUTPUT THE ERROR MESSAGE 


40$: SB AND RETURN 


ad 
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NEOUS SUBROUTINES §7 SEE 138e 8F: 98:63 MMGTST.SRCJMMGCRTDEL.MAR; 1 9° 10) vO 
‘ 446 ~SBTTL MISCELLANEOUS SUBROUTINES 
P | 
4 448 : TYPE A MESSAGE 
449 ; MSGBUF I$ THE ADDRESS OF THE BEGINNING OF THE STRING 
f 2 9 3 MSGLEN CONTAINS THE SIZE (IN BYTES) OF THE STRING | 
roe 4 : fT YPEMSGBUF : 
0 QOBC CF DO , ¢ VL - W°MSGLEN,RO :SIZE TO RO 
1 De' CE D f 454 MOVAL WeASGBUF RI SADDRESS TO R1 
08 0010°'CF O62 €E1 06 455 BBC #CTLSV_PIDMSG,W*CTLFLG,5$ [BRANCH IF NO PROCESS ID REQUIRED 
1 0900" cf DE 0657 4 6 MOVAL W*MSGBOFID,R ZADDRESS INCLUDING PID M 
e* ¢ 6 ¢ 4 - ADDL § $*#<MSGBUF-MSGBUF ID>,RO : INCLUDE EXTRA BYTES IN COUNT 
OOA0' CF 51 DO 065F 138 . MOVL  R1,W*RAB+RABSL_RBF :SET BUFFER ADDRESS 
OO9A'CF 50 BO 0664 460 MOVW RO,W*RAB+RABSW_RSZ AND 
669 461 $PUT  W*RA SOUTPUT THE MESSAGE 
01 50 ? 674 46¢ BLBC RO, 208 
678 464 208: SEXIT_S RO sEXIT WITH ERROR STATUS 
6 46 : INPUTS: 
681 468 : O(SP) = ADDRESS OF ERROR 
469 ; R1 = ADDRESS OF FORMAT CONTROL STRING 
6 47 : OUTPUTS: 
6 “78 ; R2 PRESERVED 
55 DD Ht the PROBERR PUS RS 
55 06 AE 00 83 a3$ MOVL 4(SP),R5S 
6 478 SFAO_S (R1),MSGLEN,MSGBUFD,RS 
20 BA 69— 479 POPR™ #*M<R5> 
FFAG 30 eA 480 BSBW  TYPEMSGBUF 
§ 06A3 481 RSB 
var 
06A4 484 .END = START 
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Symbol table g7 SE 3be §F: 98:33 YRMGYST.. SRETMMOCRTDEL MAR: 1 . 8) v0 
TAB = 90000078 R 02 PASSCNT 24 R 
$$. TABEND = BCR PID ‘ R 
$$. TMP > PIDCTL 46 R 
$$. TMP1 = PIDCTLADR Op R 
$$. THP2 = Q00000CF PIDCILSIZ = 
$$i1 = PIDMSG DAR 
$$12 2 PIDMSGD é R 
BIT.. = 4 PREVPROT R 
CHECK R PROBERR 1R 
CHECK2 R PRTSC_NONE = 10 
CRETVAERR R RAB 7B R 02 
CRETVAERRADR on R RABSB_RAC = 1€ 
CRETVAERRSIZ = ; RABSC-BID > 01 
CRETVASUBR ED R 03 RABSC-BLN = 44 
bo R 2 RABSC_SEQ = 0 
CTLSM_MEML . ABSL “CTX = 0000001 
CTLSM~PIDMSG = 4 ABSL ~RBF = 3 
TLSM~RNGCHK = RABSL_ROP 2 4 
CTLSM~TSTLOOP = RABSW-RSZ = 00 0022 
“mE = RANGE CHK 000 gp R 03 
CTLSV~PIDMSG 2 999 0 RANGERR 00002 ; R 03 
TL$V"RNGCHK = RANGERRADR 0000142 R 03 
CTL$V~TSTLOOP = 00000001 RANGERRSIZ = 0000004F 
TLFLG 0 19 R 02 RE TRANGE 9000 08 R 02 
LTVAERR 44 18 R 0 RSTART 0000 § R 0 
DELTVAERRADR 00 6p R 03 RUN1_MSG 0000238 R 03 
DELTVAERRSIZ = 494464 RUN1_MSGADR QOOOOICA R 03 
DEL TVASUBR 0004FD R 03 RUN1 ~“MSGSIZ = 00000043 
EXPREGERR 990 20 R 03 SAVERD 000014 R 02 
EXPREGERRADR , 0 4 R 03 Sizess = 9g 
EXPREGERRS1Z = 0 000 $$$_ACCVIO = 000 900¢ 
EXPREGSUBR 00 R 03 55$~EXQUOTA = 0000001¢ 
FAB 00 R 02 SS$~NOPRIV 2 09 0 034 
FABSC_BID = 9 $5$ "NORMAL = 00000001 
FABSC_BLN 2 55$~PAGOWNVIO = Q00001EC 
FABSC~SEQ = 0 $$$ VASFULL = 00 0244 
FABSC~VAR 2 0 START 000248 R 0 
FABSL-~ALQ 2 1 SYSSCONNECT teeeeere GX 
FABSL ~FOP = 04 SYSSCRETVA teeeeeee GX 
F ABSV~ CHAN_MODE = 2 SYSSDELTVA aeeeeeee GX 
F ABSV—F ILE MODE = SYSSEXIT teeeeeee GX 
FABSV~LNM_MODE = SYSSEXPREG eteneeee GX 0 
FABSV~PUT 5 SYS$FAO eeeeeeee =X 
FABSW” GBC = SYSSOPEN aeeeeeee GX 
asee . 08 Sy Sat Sune seseneee 
IDMSGADR R TYPEMSGBUF 00000647 R 
IDMSGS1Z = 
INRANGE R 
MAXPASSCNT R 
MSGBUF R 
MSGBUF D R 
MSGBUF ID R 
MSGBUF S12 = 
MSGLEN R 03 
OU R 
OUTNAMS IZ 
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! Psect synopsis ! 


pesca eswmoce maa nec} 


PSECT No. 


PSECT name 


Attributes 


Allocation 


, ABS . 0900 0 ( ) ° ( 9. NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS$ ( ) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
DATAO ( 8 ) § ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD 
CODE 006KS ( 1700.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE R&D 
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! Performance indicators ! 


Powe ewan so een maw mew ew amma > 


Phase Page faults CPU Time Elapsed Time 
Initialization 1 :00:00.09 0:00:02.13 
pounene processing be ° 0:00:7 4 3: $40 
Syabol table sort - 0: if J. 0: f 3:5 

Symbol table output 1 0: 0: a 0: : “98 
Psect synopsis output 0:00:00.04 :00:00.07 
Cross-reference output 0: 3: . 0:00: 09 
Assembler run totals 52 0:00:15.4 00:01:01.4 


The_working iE Limit was 1350 pages. 
64539 bytes. (127 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol ceete space ot oces d to hold 856 non-local ane 14 Local symbols. 
484 source tine were read in Pass 1, producing f object records in Pass 

41 pages of virtual memory were a to define 34 macros. 
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! Macro Library statistics ; 


¢ eer wren wwe eee eee em ee eee eee ee 


Macros defined 


Macro Library name 


SYS.OBJJLIB.MLB;1 
~$332$0 UAse SYSLIB STARLET. MLB;2 g 
ToTAis (all Libraries) 5 


1120 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MMGCRTIDEL/OBJ=OBJ$:MMGCRIDEL MSRC$:MMGCRIDEL/UPDATE=(ENHS :MMGCRIDEL) +EXECMLS/LIB 
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